home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGASIC / BASFILES.LZH / MDYDATE.BAS < prev    next >
BASIC Source File  |  1988-09-10  |  597b  |  33 lines
  1. '$INCLUDE:'QBTOOLS.INC'
  2. '' '$INCLUDE:'QBTOOLS2.INC'
  3.  
  4.  
  5. FUNCTION MDYToDate$ (Month%, Day%, Year%) STATIC
  6.  
  7. IF Month% < 10 THEN
  8.     Month$ = "0" + RIGHT$(STR$(Month%), 1)
  9. ELSE
  10.     Month$ = RIGHT$(STR$(Month%), 2)
  11. END IF
  12.  
  13. IF Day% < 10 THEN
  14.     Day$ = "0" + RIGHT$(STR$(Day%), 1)
  15. ELSE
  16.     Day$ = RIGHT$(STR$(Day%), 2)
  17. END IF
  18.  
  19. IF Year% < 100 THEN
  20.     Year$ = RIGHT$(STR$(Year%), 2)
  21. ELSE
  22.     IF Year% < 999 THEN
  23.         Year$ = "0" + RIGHT$(STR$(Year%), 3)
  24.     END IF
  25.     IF Year% < 9999 THEN
  26.         Year$ = RIGHT$(STR$(Year%), 4)
  27.     END IF
  28. END IF
  29.  
  30. MDYToDate$ = Month$ + "-" + Day$ + "-" + Year$
  31.  
  32. END FUNCTION
  33.